Leonardo the Inventor/Leonardo The Inventor (93026)(Broderbund)(Riverdeep)(2004).iso/LEOWINMV/DATABASE.DIR/00365_Script_verifySearchResults

Text File | 1996-03-28 | 985b | 32 lines

-- ---------------------------------------------------------------
-- Handler verifySearchResults calls verifyIndex for all Index-es.

on verifySearchResults firstCast, lastCast
  repeat with C = firstCast to lastCast
    put "--------------------------"
    put "Verifying Index Field " & C
    verifyindex field C
  end repeat
end

-- ---------------------------------------------------------------
-- Handler verifyIndex checks that each result in the
-- search index is actually the exact name of an article in the
-- browser.

on verifyIndex indexText
  put field "BrowserTopics" into browserTopics

  set numLines = the number of lines of indexText
  repeat with L = 1 to numLines
    set theLine = line L of indexText
    if theLine starts "*" then
      set header = theLine
      next repeat
    end if
    if NOT (BinSearchFirstItemInLine (browserTopics, theLine, ":")) then
      put header
      put theLine
    end if
  end repeat
end